home *** CD-ROM | disk | FTP | other *** search
/ PC User 2002 July / Disc 1 / PCU0702CD1.iso / software / sfeflash / flies / en-us / ps_0 / regdb_reseller.cgi < prev    next >
Encoding:
Text File  |  2002-05-17  |  1.8 KB  |  75 lines
  1. #!/usr/local/bin/perl
  2.  
  3. use DBI;
  4.  
  5. $mailprog = '/bin/sendmail';
  6.  
  7. $email_alert = 'tech@3d3.com';                    # email in case of fatal error
  8.  
  9. $database = 'regdb';
  10. $user = 'x3d3';
  11. $passwd = '4dcubed';
  12.  
  13. # Start returning a page...
  14. print "Content-type: application/x-javascript\n\n";
  15. print <<'__EOH__';
  16. function resellerArr() { this.count=0; return(this); }
  17. function reseller(r,d,e,i) {
  18.     this.r=r;
  19.     this.d=parseFloat(d);
  20.     this.e=e;
  21.     this.i=i;
  22. }
  23. var resellers = new resellerArr();
  24. var resellerErr = "";
  25. __EOH__
  26.  
  27. my($done) = 0;
  28.  
  29. # connect to the database
  30. $dbh = DBI->connect("DBI:mysql:$database", $user, $passwd);
  31. if($dbh) {
  32.     my($sql) = "SELECT * FROM Reseller WHERE NOT ISNULL(Mid) AND Mid <> '' AND Type=2";
  33.     my($sth) = $dbh->prepare($sql);
  34.     if($sth) {
  35.         if($sth->execute) {
  36.             while($hashref = $sth->fetchrow_hashref) {
  37.                 print "resellers.count++; ";
  38.                 print "resellers[resellers.count] = new reseller(";
  39.                 print "\"$$hashref{'Mid'}\", ";
  40.                 print "$$hashref{'Discount'}, ";
  41.                 print "\"$$hashref{'Email'}\", ";
  42.                 print "$$hashref{'ResellerID'});\n";
  43.             }
  44.         } else {
  45.             print "resellerErr = \"\$sth->execute() failed\";\n";
  46.         }
  47.     } else {
  48.         print "resellerErr = \"\$dbh->prepare() failed\";\n";
  49.     }
  50.     $dbh->disconnect;
  51. } else {
  52.     print "resellerErr = \"\$dbh->connect() failed\";\n";
  53. }
  54. print <<'__EOT__';
  55. function setupResellers() {
  56.     var i=0;
  57.     for(i=1; i<=topFrame.parameters.count; i++) {
  58.         if(topFrame.parameters[i].name.toLowerCase()=="rid") {
  59.             resellerRid=topFrame.parameters[i].value;
  60.             break;
  61.         }
  62.     }
  63.     for(i=1; i<=resellers.count; i++) {
  64.         if(resellers[i].r == resellerRid) {
  65.             resellerIndex=i;
  66.             shopDisc=resellers[i].d;
  67.             resellerEmail=resellers[i].e;
  68.             resellerId=resellers[i].i;
  69.             break;
  70.         }
  71.     }
  72. }
  73. setupResellers();
  74. __EOT__
  75.